home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1995 March / Macworld CD-ROM (March 1995).cdr / Demos / Paper Planes / Gloss / 00013.ls < prev    next >
Encoding:
Text File  |  1994-08-18  |  321 b   |  13 lines
  1. on exitFrame
  2.   global GlossHilite, GlossText, MaxScreenLines, ReadGlossary
  3.   cursor(4)
  4.   set GlossText to 8
  5.   set GlossHilite to 7
  6.   set MaxScreenLines to 13
  7.   puppetSprite(GlossHilite, 1)
  8.   if ReadGlossary then
  9.     set the text of field "Glossary" to EMPTY
  10.     set the text of field "GlossaryData" to EMPTY
  11.   end if
  12. end
  13.